home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / smacros.lha / FWMacros / Create_LetterHead.arexx < prev    next >
Text File  |  1994-12-17  |  4KB  |  104 lines
  1. /* Create Letter Head
  2. A Macro by Steven. R. Giovenella, 5823 Dutchess Dr., Colorado Springs, CO 80918.
  3. © Copyright 1994 Steven. R. Giovenella, All rights reserved. 
  4. This macro is my gift to the Amiga community.  It may be given away free to 
  5. anyone, but it may NOT be sold in any way, shape, or form, not even for the cost of 
  6. reproduction, downloading, shipping, or handling, without express written 
  7. permission from the author listed above.  Any person or company who violates the 
  8. content of the previous sentence, agrees to pay Steven R. Giovenella $1,000 (US) for 
  9. each copy of this macro sold.  This macro may NOT be added to any disk which is to 
  10. be sold for any price or fee, to include shipping and handling.  The ONLY way this 
  11. macro may be distributed is on a disk which is given away 100% free of all charges, 
  12. or on via telecommunications networks which do not charge any additional fee as a 
  13. result of a user downloading this particular macro.  This macro may only be 
  14. reproduced in its entirety, including all comment lines and code.  The individual 
  15. user may alter this macro for personal use, but may not then distribute the macro 
  16. in any modified form.  If you wish, feel free to send me some cash, a Christmas card, 
  17. some other piece of software, or absolutely nothing as a gift for creating this macro.  
  18. The author of this software is not responsible for any data loss or damage to 
  19. computer equipment as a result, direct or indirect, of the use of this macro. */
  20.  
  21. Options Results
  22.  
  23. /* Warning */
  24. Showmessage 2 0 '"                                   ** WARNING **" "            This Macro will 
  25. alter the current document." "Unless the document is empty, save before proceed
  26. ing." "      Proceed     " "      Save now        " "    Quit    "'
  27.     IF Result = 2 THEN SaveAs
  28.     IF Result = 3 THEN Exit
  29.  
  30. PageSetup PAGETYPE USLetter ORIENT Tall
  31. SectionSetup TOP .5 BOTTOM 0 INSIDE 1 OUTSIDE 1 HEADER 1.25 FOOTER 1 
  32.  
  33. /* Enter Data */
  34. RequestText '"Create Letter Head  (line 1)" "Enter Company Name..." ""'
  35.     company = Result
  36. ShowMessage 1 0 '"How many more lines will you need?" " " " " " 2 " "3 " "4 "'
  37.     lines = ( Result + 1 )
  38. DO i = 1 to lines
  39.     RequestText '"Create Letter Head  (line ' (i + 1 )')" "Enter next line..." ""'
  40.         line.i = Result
  41.     END
  42.         
  43. ShowMessage 2 0 '"The Letter Head should be..." "" "" " Left Justified " " Centered " 
  44. " Right Justified "'
  45.     IF Result = 1 THEN j=left
  46.     IF Result = 2 THEN j =center
  47.     IF Result = 3 THEN j =right
  48. EditRightMaster
  49. MoveToLine 1 0
  50. Status Fontpath
  51.     fp = Result
  52. Font fp ||"_bold"
  53. type company
  54. Font fp
  55. Status FontSize
  56.     fs = Result
  57. FontSize (fs - 2)
  58. NewParagraph
  59. DO i = 1 to lines
  60.     type line.i
  61.     NewParagraph
  62.     END
  63. MoveToLine 1 0
  64. ShiftDown
  65. MoveToLine ( lines + 2 ) 0
  66. Justify j
  67. ShiftUp
  68. Cursor LEFT
  69. ShowMessage 2 0 '"Do you want a footer comment?" "" "" "    Yes   " "   No   " ""'
  70.     IF Result = 1 THEN DO
  71.         RequestText '"Enter footer Comment" ""'
  72.         foot = Result
  73.         Status lineheight
  74.             lh = Result
  75.             DO i = 1 to ((11 / lh) * (10.25  / 11 ) - (lines + 2))
  76.                 NewParagraph
  77.             END
  78.     type foot
  79.     AltDown
  80.     ShiftDown
  81.     Cursor LEFT
  82.     ShowMessage 2 0 '"The footer should be..." "" "" " Left Justified " " Cen
  83. tered " " Right Justified "'
  84.         IF Result = 1 THEN j=left
  85.         IF Result = 2 THEN j =center
  86.         IF Result = 3 THEN j =right
  87.     Justify j
  88.     ShiftUp
  89. ShowMessage 2 0 '"Do you want header and footer lines?" " " " " "    Yes   " "   No   " 
  90. ""'
  91.     IF Result = 1 THEN DO    
  92.         ShowMessage 2 0 '"What point size?" " " " " "    .5   " "   1   " "   2   "'
  93.             IF Result = 1 THEN lw = .5
  94.             IF Result = 1 THEN lw = 1
  95.             IF Result = 1 THEN lw = 2
  96.         LinePrefs LINEWT lw
  97.         DrawLine 1 1 1.5 7.5 1.5
  98.         DrawLine 1 1 10.25 7.5 10.25
  99.         END
  100.     END
  101.  
  102. MoveToLine 1 0
  103. EditBody
  104.